Private Sub CommandButton1_Click()

    Dim  As String
    
     = Range("E2").Value

    With Label1
        .Caption = Left(, InStr(1, , vbLf) - 1)
        .TextAlign = fmTextAlignCenter
        With .Font
            .Size = 14
            .Bold = True
        End With
    End With
        
    With Label2
        .Caption = Mid(, InStr(1, , vbLf) + 1)
        .TextAlign = fmTextAlignCenter
        .Font.Size = 10
        .ForeColor = RGB(0, 112, 192)
    End With

End Sub